unused functions/check_zero.R

check_zero <- function(sample, N, n, M, nprobs, pip) {
  sample <- as_tibble(sample)
  if (sample$n10 == 0 & sample$n11 == 0) {
    sample$n10 <- 0.01
    sample$n11 <- 0.01
  }
  sample
}
BriceonWiley/IntegratedLikelihood.R documentation built on Aug. 21, 2020, 11 p.m.